home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / HTEST01.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-01  |  1KB  |  69 lines
  1.  
  2. USES
  3.     crt,
  4.     graph,
  5.     TEGLicon,
  6.     TEGLIntr,
  7.     FastGrph;
  8.  
  9. const
  10.   TEGLBackPattern    : FillPatternType = ($AA,$55,$AA,$55,$AA,$55,$AA,$55);
  11.  
  12. var
  13.   ch : char;
  14.  
  15. procedure ClearTEGLScreen1;
  16.    begin
  17.       setbkcolor(black);
  18.       SetFillPattern(TEGLBackPattern,1);
  19.       Bar(0,0,getmaxx,getmaxy);
  20.       SetColor(1);
  21.       Rectangle(0,0,getmaxx,getmaxy);
  22.    end;
  23.  
  24. procedure ClearTEGLScreen2;
  25.    begin
  26.       setbkcolor(black);
  27. {     SetFillstyle(solidfill,1); }
  28.       SetFillPattern(Gridfill,1);
  29.       Bar(0,0,getmaxx,getmaxy);
  30.       SetColor(1);
  31.       Rectangle(0,0,getmaxx,getmaxy);
  32.    end;
  33.  
  34. procedure waitforkey;
  35.    begin
  36.       while keypressed do ch:=readkey;
  37.       while not keypressed do;
  38.       while keypressed do ch:=readkey;
  39.    end;
  40.  
  41. begin
  42.    Herc720x348x2;
  43.    Init_TEGLIntr;
  44.    setmouseminmax(0,0,getmaxx,getmaxy);
  45.  
  46.    clearteglscreen1;
  47.  
  48.    showmouse;
  49.    waitforkey;
  50.  
  51.    flipapage;
  52.    clearteglscreen2;
  53.  
  54.    hidemouse;
  55.    flipvpage;        {second page}
  56.    waitforkey;
  57.    flipvpage;        {first page}
  58.    waitforkey;
  59.    flipvpage;        {second page}
  60.  
  61. {  clearteglscreen1;}
  62.    showmouse;
  63.    waitforkey;
  64.    flipvpage;        {first page}
  65.    waitforkey;
  66.    flipvpage;        {first page}
  67.    waitforkey;
  68. end.
  69.